<?php
/* 
 * ********* CVS HEADER ********* 
 * 
 * $RCSfile: admenvtplsupp.php,v $ 
 * $Date: 2007/07/30 21:16:45 $ 
 * $Revision: 1.3 $ 
 * 
 * ********* CVS HEADER ********* 
 */
if (!isset($envid)) {
	rportalerreur("Aucun environnement en param&egrave;tre !","?op=admenvliste");
}
require_once(get_path_module("environnement.environnement"));
$env=new environnement;
$tpl = new tpl;
$query="SELECT environnement,modification FROM environnement WHERE id='$envid'";
$result=rportalrequete($query) or rportalerreur($query,"?op=admenvmod&argid=$envid");
if($environnement=rportalligne($result)){
    $env=restaure_environnement($environnement['environnement']);
} else { rportalerreur($query,"?op=admenvmod&argid=$envid"); }

/**
  * On recherche si le template est utilise par des boxs de l'environnement
  */
$tpl=$env->gettpl($tplid);
for($i=0;$i<$env->getnbbox();$i++){
    $box=$env->getbox($i);
    if($tpl->getfichier()==$box->gettemplate()) rportalerreur("Le template que vous voulez supprimer est encore utilise par des boxs.","?op=admenvmod&argid=$envid");
}
$modif = $environnement['modification'];
$modif = "Suppression du template ".$tpl->getnom().".\n" . $modif;
$env->deltpl($tplid);
$query="UPDATE environnement SET environnement='".$env->serialize()."',lastmod=NOW(),modification='".addslashes($modif)."' WHERE id='$envid'";
@rportalrequete($query) or rportalerreur($query,"?op=admenvmod&argid=$envid");
header("Location: ?op=admenvmod&argid=$envid");
exit;
?>
